home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / f2c / may_5_92.lha / f2c.VMay_5_1992 / libF77 / s_stop.c < prev    next >
C/C++ Source or Header  |  1992-05-07  |  236b  |  20 lines
  1. #include "stdio.h"
  2. #include "f2c.h"
  3.  
  4. VOID s_stop(s, n)
  5. char *s;
  6. ftnlen n;
  7. {
  8. int i;
  9.  
  10. if(n > 0)
  11.     {
  12.     fprintf(stderr, "STOP ");
  13.     for(i = 0; i<n ; ++i)
  14.         putc(*s++, stderr);
  15.     fprintf(stderr, " statement executed\n");
  16.     }
  17. f_exit();
  18. exit(0);
  19. }
  20.